﻿
Class Medico
    Private _codiceMedico As Integer
    Private _codiceFiscale As String
    Private _cognome As String
    Private _nome As String
    Private _dataNascita As String
    Private _sex As Char
    Private _indirizzo As String
    Private _citta As String
    Private _cap As String
    Private _provincia As String
    Private _specializzazione As String
    Private _telefono1 As String
    Private _telefono2 As String
    Private _email As String
    Public Property codiceMedico() As Integer
        Get
            Return _codiceMedico
        End Get
        Set(ByVal value As Integer)
            _codiceMedico = value
        End Set
    End Property
    Public Property codiceFiscale() As String
        Get
            Return _codiceFiscale
        End Get
        Set(ByVal value As String)
            _codiceFiscale = value
        End Set
    End Property
    Public Property cognome() As String
        Get
            Return _cognome
        End Get
        Set(ByVal value As String)
            _cognome = value
        End Set
    End Property
    Public Property nome() As String
        Get
            Return _nome
        End Get
        Set(ByVal value As String)
            _nome = value
        End Set
    End Property
    Public Property dataNascita() As String
        Get
            Return _dataNascita
        End Get
        Set(ByVal value As String)
            _dataNascita = value
        End Set
    End Property
    Public Property sex() As Char
        Get
            Return _sex
        End Get
        Set(ByVal value As Char)
            _sex = value
        End Set
    End Property
    Public Property indirizzo() As String
        Get
            Return _indirizzo
        End Get
        Set(ByVal value As String)
            _indirizzo = value
        End Set
    End Property
    Public Property citta() As String
        Get
            Return _citta
        End Get
        Set(ByVal value As String)
            _citta = value
        End Set
    End Property
    Public Property cap() As String
        Get
            Return _cap
        End Get
        Set(ByVal value As String)
            _cap = value
        End Set
    End Property
    Public Property provincia() As String
        Get
            Return _provincia
        End Get
        Set(ByVal value As String)
            _provincia = value
        End Set
    End Property
    Public Property specializzazione() As String
        Get
            Return _specializzazione
        End Get
        Set(ByVal value As String)
            _specializzazione = value
        End Set
    End Property
    Public Property telefono1() As String
        Get
            Return _telefono1
        End Get
        Set(ByVal value As String)
            _telefono1 = value
        End Set
    End Property
    Public Property telefono2() As String
        Get
            Return _telefono2
        End Get
        Set(ByVal value As String)
            _telefono2 = value
        End Set
    End Property
    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Sub New(ByVal codiceFiscale As String, ByVal nome As String, ByVal cognome As String)
        _codiceFiscale = codiceFiscale
        _nome = nome
        _cognome = cognome
    End Sub
    Public Function isNothing() As Boolean
        If Me.codiceMedico = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub New()

    End Sub
End Class
